perm filename FRPOLY.TIM[TIM,LSP]8 blob
sn#740460 filedate 1984-01-31 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00014 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 SAIL
C00009 00003 Franz on a 780 (Old version superceded later in this file)
C00010 00004 Multics
C00012 00005 780 Franz
C00014 00006 UTEXAS20 running UCI-LISP
C00019 00007 UTLISP 5.1
C00024 00008 ELISP/UCILISP
C00026 00009 Texas UCILISP
C00030 00010 Franz on 11/780 and 11/750
C00035 00011 ∂06-May-82 0129 Mabry Tyson <Tyson at SRI-AI> FRPOLY results for UCI Lisp
C00038 00012 LM-2
C00040 00013 NIL
C00042 00014 DEC780CL
C00043 ENDMK
C⊗;
;;; SAIL
(setup)
(Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0)))
(setq base 10. ibase 10.)
10.
(bench 2.)
(POWER= 2. (7.0E-3 0.0 0.0166666666) (6.0E-3 0.0 0.0166666666) (7.0E-3 1.0E-3 0.05))
(bench 5.)
(POWER= 5. (0.146 0.096 0.183333334) (0.171 0.094 0.283333335) (0.14 0.09 0.216666667))
(bench 10.)
(POWER= 10. (1.132 0.588 2.4) (5.145 4.055 9.35) (2.399 1.842 4.75))
(bench 15.)
(POWER= 15. (5.884 2.235 8.9166666) (41.611 30.642 72.0) (20.687 16.999 47.8166666))
(bench 2.)
(POWER= 2. (5.0E-3 0.0 0.0) (5.0E-3 0.0 0.0) (5.0E-3 0.0 0.0))
(bench 5.)
(POWER= 5. (0.048 0.0 0.083333333) (0.076 0.0 0.15) (0.231 0.182 0.383333333))
(bench 10.)
(POWER= 10. (0.538 0.0 0.983333334) (1.881 0.82 3.45) (1.311 0.766 2.06666666))
(bench 15.)
(POWER= 15. (4.457 0.825 7.0833333) (29.15 18.186 57.05) (17.037 13.319 29.8833334))
(bench 2)
(POWER= 2. (5.0E-3 0.0 0.0166666666) (5.0E-3 0.0 0.033333333) (6.0E-3 0.0 0.0166666666))
(bench 5)
(POWER= 5. (0.049 0.0 0.1) (0.077 0.0 0.066666666) (0.236 0.185 0.4))
(bench 10.)
(POWER= 10. (0.542 0.0 1.01666667) (1.903 0.826 3.26666668) (1.33 0.776 2.41666666))
(bench 15.)
(POWER= 15. (4.506 0.831 9.2333333) (29.242 18.198 53.9) (16.88 13.226 28.8833334))
;;; Model B
(fasload frpoly)
(bench 2)
TEST1
Timing performed on Tuesday 04/26/83 at 12:36:05.
Cpu (- GC) Time = 5.0E-3
Elapsed Time = 0.033333333
Wholine Time = 0.0166666666
GC Time = 0.0
Load Average Before = 1.07315445
Load Average After = 1.07362497
Average Load Average = 1.07338971
TEST2
Timing performed on Tuesday 04/26/83 at 12:36:08.
Cpu (- GC) Time = 5.0E-3
Elapsed Time = 0.0166666666
Wholine Time = 0.0166666666
GC Time = 0.0
Load Average Before = 1.0696851
Load Average After = 1.06967664
Average Load Average = 1.06968087
TEST3
Timing performed on Tuesday 04/26/83 at 12:36:11.
Cpu (- GC) Time = 4.0E-3
Elapsed Time = 0.0166666666
Wholine Time = 0.0166666666
GC Time = 0.0
Load Average Before = 1.07251835
Load Average After = 1.07275367
Average Load Average = 1.07263601
NIL
(bench 5)
TEST1
Timing performed on Tuesday 04/26/83 at 12:36:20.
Cpu (- GC) Time = 0.042
Elapsed Time = 0.516666666
Wholine Time = 0.0166666666
GC Time = 0.0
Load Average Before = 1.05037117
Load Average After = 1.06493556
Average Load Average = 1.05765337
TEST2
Timing performed on Tuesday 04/26/83 at 12:36:21.
Cpu (- GC) Time = 0.067
Elapsed Time = 3.03333333
Wholine Time = 1.03333333
GC Time = 0.389
Load Average Before = 1.07364166
Load Average After = 1.13156891
Average Load Average = 1.10260528
TEST3
Timing performed on Tuesday 04/26/83 at 12:36:25.
Cpu (- GC) Time = 0.042
Elapsed Time = 0.083333333
Wholine Time = 0.083333333
GC Time = 0.0
Load Average Before = 1.13101137
Load Average After = 1.1309315
Average Load Average = 1.13097143
NIL
(bench 10.)
TEST1
Timing performed on Tuesday 04/26/83 at 12:37:06.
Cpu (- GC) Time = 0.467
Elapsed Time = 6.81666666
Wholine Time = 1.93333334
GC Time = 0.785
Load Average Before = 1.0520922
Load Average After = 1.17209852
Average Load Average = 1.11209536
TEST2
Timing performed on Tuesday 04/26/83 at 12:37:14.
Cpu (- GC) Time = 0.926
Elapsed Time = 56.9166665
Wholine Time = 12.4833333
GC Time = 5.941
Load Average Before = 1.1852001
Load Average After = 2.3180405
Average Load Average = 1.7516203
TEST3
Timing performed on Tuesday 04/26/83 at 12:38:14.
Cpu (- GC) Time = 0.47
Elapsed Time = 27.7833333
Wholine Time = 5.8833333
GC Time = 2.979
Load Average Before = 2.3805095
Load Average After = 2.8017373
Average Load Average = 2.5911234
NIL
(bench 15.)
TEST1
Timing performed on Tuesday 04/26/83 at 12:38:55.
Cpu (- GC) Time = 3.145
Elapsed Time = 48.4333334
Wholine Time = 12.5666667
GC Time = 4.824
Load Average Before = 2.92283165
Load Average After = 3.26940846
Average Load Average = 3.09612006
TEST2
Timing performed on Tuesday 04/26/83 at 12:39:47.
Cpu (- GC) Time = 9.434
Elapsed Time = 201.45
Wholine Time = 94.766666
GC Time = 50.48
Load Average Before = 3.29244137
Load Average After = 3.04327726
Average Load Average = 3.16785932
TEST3
Timing performed on Tuesday 04/26/83 at 12:43:11.
Cpu (- GC) Time = 3.159
Elapsed Time = 134.483334
Wholine Time = 81.333333
GC Time = 48.86
Load Average Before = 3.01823843
Load Average After = 2.42033207
Average Load Average = 2.71928525
NIL
;;; Franz on a 780 (Old version superceded later in this file)
;;; FPOLY compiled times (load = 3.5)
(setup)
(Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0)))
(bench 2)
(POWER= 2 (0.017 0.0) (0.017 0.0) (0.016 0.0))
(bench 5)
(POWER= 5 (0.116 0.0) (1.334 1.084) (0.15 0.0))
(bench 10)
(POWER= 10 (2.534 1.8) (19.733 17.151) (8.983 7.901))
(bench 15)
(POWER= 15 (16.65 8.832) (112.516 89.298) (63.9 56.749))
;;; Multics
(setup)
(z 1 1.0 0 (y 1 1.0 0 (x 1 1.0 0 1.0)))
(bench 2)
(power= 2 (0.016692 0.0) (0.015114 0.0) (0.015725 0.0))
(bench 5)
(power= 5 (0.150491 0.0) (0.212428 0.0) (0.154568 0.0))
(bench 10) ;=8
(power= 10 (0.968238 0.184816) (1.71576 0.389726) (0.99761099 0.187837))
(bench 10.) ;decimal
(power= 12 (2.000796 0.405341) (3.569996 0.880229) (1.883108 0.231459))
(bench 15) ;octal = 13.
(power= 15 (6.563067 1.148998) (13.168704 2.515469) (6.694873 1.155386))
(bench 15.) ;decimal
(power= 17 (12.532608 1.85896) (27.568518 5.391129) (12.636826 1.860995))
(quit)
hmu
Multics 35.0a, load 42.0/120.0; 42 users, 27 interactive, 12 daemons.
Absentee users 1/3 (+2 FG)
;;; 780 Franz
Here are the results or running the pairs benchmark on Franz Lisp on
a VAX 11/780 runing Berkeley 4BSD Unix. The load average was less
than one when the timing was done. These results supersede the timings
you have which were made by us in March.
-> (setup)
(z 1 1.0 0 (y 1 1.0 0 (x 1 1.0 0 1.0)))
-> (bench 2)
(power= 2 (0.0167 0.0) (0.0333 0.0) (0.0 0.0))
-> (bench 5)
(power= 5 (0.15 0.0) (0.75 0.4333) (0.3833 0.2166))
-> (bench 10)
(power= 10 (2.8167 1.05) (8.2333 3.3) (3.2 1.2333))
-> (bench 15)
(power= 15 (18.2333 5.35) (92.0333 41.6333) (18.8 5.1333))
->
script done on Fri Apr 24 06:07:48 1981
;;; UTEXAS20 running UCI-LISP
(Times are in the form R+G where R is the runtime (not including GC time)
and G is the GC time. All times are in seconds. "Interp" means interpreted,
"Slow" means compiled but using UUO-links, "Fast" means compiled with the UUO
links replaced by direct jumps.)
Processor
Program KL-2060 KI-1060
Interp Slow Fast Interp Slow Fast
FRPOLY:
Free: 100000. 75000.
(bench 0.719+0 0.142+0 0.043+0 2.627+0 0.576+0 0.181+0
2) 0.677+0 0.142+0 0.047+0 2.619+0 0.545+0 0.168+0
First 0.677+0 0.141+0 0.042+0 2.698+0 0.580+0 0.166+0
result 0.687+0 0.140+0 0.043+0 0.612+0 0.155+0
----------------------------------------------------------------------
Third 0.706+0 0.162+0 0.063+0 2.585+0 0.630+0 0.256+0
result 0.830+0 0.164+0 0.063+0 2.798+0 0.610+0 0.227+0
0.702+0 0.162+0 0.062+0 2.733+0 0.695+0 0.252+0
0.700+0 0.162+0 0.065+0 0.593+0 0.215+0
======================================================================
(bench 5.88+0 1.166+0 0.343+0 22.25+0 4.384+0 1.451+0
5) 5.696+0 1.142+0 0.355+0 21.87+0 4.462+0 1.297+0
First 5.706 1.146+0 0.338+0 4.719+0 1.500+0
result 1.18+0 0.351+0
----------------------------------------------------------------------
Third 5.891+0 1.343+0 0.523+0 23.04+0 4.964+0 2.097+0
result 5.880+0 1.383+0 0.51+0 21.64+0 5.084+0 2.065+0
5.884+0 1.345+0 0.522+0 5.093+0 2.048+0
1.341+0 0.514+0
======================================================================
(bench 122.2+1.1 25.48+1.02 8.63+1.04 -- -- 31.91+2.12
10) 25.14+0.98 8.42+1.02
First 25.53+1.03 8.47+1.01
----------------------------------------------------------------------
Third 126.4+2.2 28.17+2.02 11.57+2.04 -- -- 39.07+6.07
result 28.26+2.03 11.54+2.04
28.18+2.04 11.28+1.98
======================================================================
(bench -- 39.22+2.16 12.59+2.00 -- -- --
15) 12.98+2.06
First
----------------------------------------------------------------------
Third -- 43.46+3.08 17.22+3.02 -- -- --
result 17.58+3.05
======================================================================
Note: The results referred to as the first result is the result obtained
as the first value returned by BENCH. This is the value computed using
integer coefficients. The result referred to as the third result is the
third value returned by BENCH (for real number coefficients). UCI Lisp
does not have the bignum package so it could not compute the second
result returned by the BENCH routine.
-------
;;; UTLISP 5.1
Following are the results for FRPOLY under UTLISP 5.1. The runs at
75000 (octal) were run interactively; the remainder were submitted
as batch jobs. "runtime" does NOT include "gctime".
Interpreted:
bench 2: (runtime+gctime)
R: 1.168+0 1.168+0 1.149+0 1.147+0
R2: 1.181+0 1.162+0 1.171+0 1.174+0
R3: 1.175+0 1.170+0 1.171+0 1.179+0
bench 5: (runtime over gctime)
R: 9.910 9.917 9.868 9.904
.156 .145 .152 .148
R2: 5.237 5.261 5.245 5.237
.162 .156 .157 .156
R3: 9.930 9.899 9.960 9.927
.323 .315 .311 .300
bench 10:
R: 213.160
4.205
R2: 7.136
.168
R3: 213.650
3.994
bench 2 and bench 5 were run at a field length (= core size) of
75000 (octal) words with: free space of 7500. words
full space of 2583. words
bench 2 required no garbage collections; bench 3 required 4 garbage
collections for each run.
bench 10 was run at a field length of 200000 (octal) words with:
free space of 41706. words
full space of 6685. words
bench 10 required 38 garbage collections.
For obvious reasons, I did not run bench 15.
Compiled:
bench 2:
R: .173 .139 .153 .149
0. 0. .108 0.
R2: .165 .167 .156 .150
0. .115 0. 0.
R3: .155 .154 .165 .183
0. 0. 0. 0.
bench 5:
R: 1.406 1.361 1.353 1.327
.328 .356 .366 .385
R2: .897 .872 .857 .861
.159 .253 .257 .260
R3: 1.430 1.372 1.382 1.375
.325 .395 .396 .269
bench 10:
R: 30.043 30.009 30.016
3.989 3.866 4.010
R2: 1.219 1.172 1.218
.143 .179 .155
R3: 30.495 30.509 30.528
4.015 3.896 3.916
bench 15:
R: 46.046 46.030
7.346 7.330
R2: 2.120 2.122
.171 .174
R3: 46.945 46.736
7.077 7.264
bench 2 and bench 5 were run at a field length of 75000 (octal)
words with: free space of 14177. words
full space of 1554. words
bench 2 required 0 or 1 garbage collections per run; bench 5
required 7 to 8 garbage collections per run.
bench 10 and bench 15 were run at a field length of 200000 (octal)
words with: free space of 42913. words
full space of 6859. words
bench 10 required 37 garbage collections per run; bench 15 required
63 garbage collections.
As you can see from the R2 results, there are times when a 60 bit word
size can come in handy.
-------
;;; ELISP/UCILISP
Note that in BENCH, the middle numbers are missing, as we don't have
BIGNUM's. All numbers are in seconds. The ones in () are for GC.
In Elisp, all final calls are turned into jumps. A tailrecursive
function does in fact turn into a loop. I think the R/UCI compiler does
the same, but I am not as familiar with at. (As you may know, the Elisp
compiler is a modified Utah PSL compiler from about a year ago.)
Elisp
(bench 10) .893 (0) 1.018 (0)
(bench 15) 4.919 (.809) 4.416 (.221)
R/UCI Lisp, NOUUO
(bench 10) 1.137 (.276) 2.658 (1.404)
(bench 15) 7.162 (2.926) 20.208 (14.453)
-------
;;; Texas UCILISP
∂06-May-82 0129 Mabry Tyson <Tyson at SRI-AI> FRPOLY results for UCI Lisp
Date: 6 May 1982 0127-PDT
From: Mabry Tyson <Tyson at SRI-AI>
Subject: FRPOLY results for UCI Lisp
To: rpg at SU-AI
Results on FRPOLY for UCILISP (version from University of Texas at Austin
running on SRI-AI TOPS-20). Running with the TOPS-10/TOPS-20 compatibility
package.
Notes relevent to this problem: UCILSP does not have bignums. (The hooks are
there but I know of no source that uses them.) All arithmetic operations
are generic and are NOT compiled in-line. The times reported are CPU times
and the first time (the total) includes the second time (the GC time).
The only non-syntactic change to the source was to change the divisor for
the time computation from 1000000.0 to 1000.0 since UCILSP reports times in
milliseconds.
Interpreted (Macros expanded once only):
(bench 2)
(POWER= 2 (0.58200000 0.00000000) ? (0.67300000 0.00000000))
(bench 5)
(POWER= 5 (6.0660000 0.00000000) ? (6.1940000 0.00000000))
Compiled without fast links (and that includes calls to arithmetic functions):
Interpreted (Macros expanded once only):
(bench 2)
(POWER= 2 (0.58200000 0.00000000) ? (0.67300000 0.00000000))
(bench 5)
(POWER= 5 (6.0660000 0.00000000) ? (6.1940000 0.00000000))
Compiled without fast links (and that includes calls to arithmetic functions):
(bench 2)
(POWER= 2 (0.84000000E-1 0.00000000) ? (0.90000000E-1 0.00000000))
(bench 5)
(POWER= 5 (0.93900000 0.00000000) ? (1.0160000 0.00000000))
(bench 10)
(POWER= 10 (19.273000 1.1050000) ? (19.655000 1.0580000))
(bench 15)
(POWER= 15 (31.048000 2.1530000) ? (33.469000 3.2140000))
Compiled with fast links:
(bench 2)
(POWER= 2 (0.18000000E-1 0.00000000) ? (0.23000000E-1 0.00000000))
(bench 5)
(POWER= 5 (0.20800000 0.00000000) ? (0.27900000 0.00000000))
(bench 10)
(POWER= 10 (5.5870000 1.0570000) ? (6.3900000 1.0760000))
(bench 15)
(POWER= 15 (9.1310000 2.0910000) ? (11.560000 3.1940000))
-------
;;; Franz on 11/780 and 11/750
∂25-May-82 0907 jkf@ucbkim at Berkeley frpoly benchmark, complete results
Date: 25 May 1982 09:03:10-PDT
From: jkf@ucbkim at Berkeley
Mail-From: ucbkim received by UCBVAX at 25-May-82 08:46:04-PDT (Tue)
Date: 25-May-82 08:52:21-PDT (Tue)
From: jkf@ucbkim
Subject: frpoly benchmark, complete results
Via: ucbkim.EtherNet (V3.100 [3/27/82]); 25-May-82 08:52:27-PDT (Tue)
Via: ucbvax.EtherNet (V3.100 [3/27/82]); 25-May-82 08:46:04-PDT (Tue)
To: rpg@su-ai
Cc: jkf@fateman@Berkeley
frpoly benchmark -[Tue May 25 08:51:42 1982 by jkf]-
Results for Franz Lisp Opus 38.18, and compiler Liszt 8.07
11/780
Slow links:
(power= 2 (0.05 0.0) (0.06666666666666667 0.0) (0.06666666666666667 0.0))
(power= 5 (0.6 0.0) (1.18333 0.4166666666666667) (0.9833333333333333 0.4))
(power= 10 (7.6666667 0.8833) (14.866667 3.83333) (8.6166667 1.433333333333))
(power= 15 (52.51666666666667 5.316666667) (132.8 43.0) (54.2666667 6.95))
Normal links:
(power= 2 (0.01666667 0.0) (0.01666666667 0.0) (0.03333333333333333 0.0))
(power= 5 (0.2 0.0) (0.3833333333333333 0.0) (0.2166666666666667 0.0))
(power= 10 (2.333333333333333 0.0) (8.0 2.266666666666667) (2.6 0.0))
(power= 15 (20.6 4.016666666667) (86.5 30.3833333) (25.0833333 6.766666667))
Local Functions:
(power= 2 (0.01666666667 0.0) (0.016666667 0.0) (0.01666666666666667 0.0))
(power= 5 (0.15 0.0) (0.66666667 0.36666667) (0.51666667 0.3333333333333333))
(power= 10 (2.6 0.8333333333333333) (8.866667 3.7) (3.85 1.833333333333333))
(power= 15 (18.48333333 5.6333333) (93.866667 41.75) (21.7 6.966666666667))
11/750
Slow links:
(power= 2 (0.0833333333333 0.0) (0.116666666667 0.0) (0.08333333333333 0.0))
(power= 5 (0.933333333 0.0) (1.8 0.56666666667) (1.6166666667 0.633333333333))
(power= 10 (12.06666667 1.3666666667) (22.26667 5.93333) (13.86667 2.8833333))
(power= 15 (82.5666667 9.3833333) (202.683333 67.46666667) (86.83333 11.2167))
Normal links:
(power= 2 (0.05 0.0) (0.03333333333333333 0.0) (0.03333333333333333 0.0))
(power= 5 (0.35 0.0) (1.18333333 0.566667) (1.0166667 0.6666666666666667))
(power= 10 (5.3666667 1.383333) (14.95 5.816667) (7.266666666666667 2.95))
(power= 15 (37.233333 9.1166667) (155.45 67.15) (41.46666666666667 11.0))
Local functions:
(power= 2 (0.0333333 0.0) (0.03333333333333333 0.0) (0.01666666666666667 0.0))
(power= 5 (0.2666666666666667 0.0) (0.4833333333333333 0.0) (0.3 0.0))
(power= 10 (3.15 0.0) (11.81666666666667 3.516666666666667) (3.466666666666667 0.0))
(power= 15 (29.46666666666667 6.65) (129.5666666666667 48.21666666666667) (36.7 11.21666666666667))nil
Slow links means (sstatus translink nil)
Fast links means (sstatus translink t)
Local functions means that certain functions are declared to be local
to this file.
∂06-May-82 0129 Mabry Tyson <Tyson at SRI-AI> FRPOLY results for UCI Lisp
Date: 6 May 1982 0127-PDT
From: Mabry Tyson <Tyson at SRI-AI>
Subject: FRPOLY results for UCI Lisp
To: rpg at SU-AI
Results on FRPOLY for UCILISP (version from University of Texas at Austin
running on SRI-AI TOPS-20). Running with the TOPS-10/TOPS-20 compatibility
package.
Notes relevent to this problem: UCILSP does not have bignums. (The hooks are
there but I know of no source that uses them.) All arithmetic operations
are generic and are NOT compiled in-line. The times reported are CPU times
and the first time (the total) includes the second time (the GC time).
The only non-syntactic change to the source was to change the divisor for
the time computation from 1000000.0 to 1000.0 since UCILSP reports times in
milliseconds.
Interpreted (Macros expanded once only):
(bench 2)
(POWER= 2 (0.58200000 0.00000000) ? (0.67300000 0.00000000))
(bench 5)
(POWER= 5 (6.0660000 0.00000000) ? (6.1940000 0.00000000))
Compiled without fast links (and that includes calls to arithmetic functions):
(bench 2)
(POWER= 2 (0.84000000E-1 0.00000000) ? (0.90000000E-1 0.00000000))
(bench 5)
(POWER= 5 (0.93900000 0.00000000) ? (1.0160000 0.00000000))
(bench 10)
(POWER= 10 (19.273000 1.1050000) ? (19.655000 1.0580000))
(bench 15)
(POWER= 15 (31.048000 2.1530000) ? (33.469000 3.2140000))
Compiled with fast links:
(bench 2)
(POWER= 2 (0.18000000E-1 0.00000000) ? (0.23000000E-1 0.00000000))
(bench 5)
(POWER= 5 (0.20800000 0.00000000) ? (0.27900000 0.00000000))
(bench 10)
(POWER= 10 (5.5870000 1.0570000) ? (6.3900000 1.0760000))
(bench 15)
(POWER= 15 (9.1310000 2.0910000) ? (11.560000 3.1940000))
-------
;;;LM-2
;; 3. FRPOLY
(DEFUN TEST-FRPOLY (N)
(LET (START RES1 RES2 RES3)
(WITHOUT-INTERRUPTS
(SETQ START (TIME:MICROSECOND-TIME))
(PEXPTSQ R N)
(SETQ RES1 (TIME:MICROSECOND-TIME))
(PEXPTSQ R2 N)
(SETQ RES2 (TIME:MICROSECOND-TIME))
(PEXPTSQ R3 N)
(SETQ RES3 (TIME:MICROSECOND-TIME)))
(FORMAT T "~%Power= ~D. ~20T~S ~32T~S ~44T~S" N
(// (- RES1 START) 1000000.0)
(// (- RES2 RES1) 1000000.0)
(// (- RES3 RES2) 1000000.0))))
;; Compiled results
;; Power= 2. 0.016191 0.020865 0.021139
;; Power= 2. 0.01614 0.020716 0.020233
;; Power= 5. 0.175673 0.251539 0.236832
;; Power= 5. 0.20282 0.251422 0.236561
;; Power= 10. 2.202732 3.7338 3.143525
;; Power= 10. 2.293053 3.520599 2.725204
;; Power= 15. 18.589147 32.037923 22.587246
;; Power= 15. 18.547342 30.895854 22.432256
;;; NIL
FRPOLY
Fixnum arithmetic.
(defmacro pzerop (x)
;`(signp e ,x)
`(let ((%foo% ,x)) (and (numberp %foo%) (zerop %foo%)))
)
Hmmm. There is no PDIFFER1 function?
First pass.
(bench 2)
cpu=0.05,elapsed=0.05,pf=1
cpu=0.51,elapsed=1.62,pf=64
cpu=0.06,elapsed=0.06,pf=2
(bench 5)
cpu=0.5,elapsed=0.51,pf=16
cpu=2.28,elapsed=2.28,pf=31
cpu=0.55,elapsed=0.55,pf=21
(bench 10)
cpu=5.97,elapsed=5.97,pf=150
cpu=40.49,elapsed=40.73,pf=591
cpu=6.8,elapsed=6.8,pf=21
(bench 15)
cpu=40.47,elapsed=41.01,pf=862
cpu=492.7,elapsed=499.78,pf=5668
cpu=44.28,elapsed=45.34,pf=1566
Inline carcdr:
(bench 2)
cpu=0.04,elapsed=0.04,pf=2
cpu=0.15,elapsed=0.15,pf=5
cpu=0.05,elapsed=0.05,pf=3
(bench 5)
cpu=0.36,elapsed=0.36,pf=15
cpu=2.15,elapsed=2.15,pf=39
cpu=0.42,elapsed=0.43,pf=22
(bench 10)
cpu=3.85,elapsed=3.88,pf=158
cpu=38.71,elapsed=38.99,pf=574
cpu=4.64,elapsed=4.66,pf=284
(bench 15)
cpu=24.93,elapsed=25.81,pf=833
cpu=479.48,elapsed=482.87,pf=5572
cpu=30.7,elapsed=31.18,pf=1556
;;; DEC780CL
cpu + probability x gc
FRPOLY 0.03
0.04
0.03
0.24
0.40
0.31
2.3
6.6 + 0.1 x 17
3.2
15
38 + 1.0 x 15
20 + 0.5 x 15